home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 34
/
034.d81
/
disk eraser
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
54 lines
10 a=a+1:ifa=1thenload"moveit.o",8,1
20 poke808,239:poke792,193
30 poke53280,.:poke53281,.
40 print"[147][159] [196]ispute?'s [199]azelle presents:"
50 print" [195][207][205][205][207][196][207][210][197] 64/128 [196][201][211][203] [197][210][193][211][197][210]"
60 print"[129] [160][194]y [205]ike [205]aynard"
70 print"[149] [195]opyright 1987, [206]o rights reserved"
80 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
90 print" [208]roceeding to erase your disk ..."
100 print"[158] ";
110 print" [196]o not press the [210][213][206]/[211][212][207][208] key! ";
120 print" "
122 mm$=""
125 open15,8,15:open8,8,8,"#"
130 fortr=1to35
135 print#15,"u1:8 0"tr;.
140 printmm$"[197]rasing [212]rack:"tr
150 gosub200:next
160 close8:close15
170 print"[154][215]ould you like to erase another?"
175 print"([209][154],[210][154],[217][154],[212][154],[206][154],[[210][197][212][213][210][206][154]])?":poke198,.
180 geta$
185 ifa$<>"q"anda$<>"r"anda$<>"y"anda$<>"t"anda$<>"n"anda$<>chr$(13)then180
190 ifa$="n"then6000
195 print"[207]k, here goes ...":fora=1to1000:next:goto20
200 ifpeek(145)<>127thenreturn
205 close8:close15:poke53280,peek(162):poke53281,peek(162)
210 fordd=1to100:poke53270,peek(53270)or16
215 r=peek(162)
220 ifr>100thenpoke53265,peek(53265)or32
230 ifr<100thenpoke53265,peek(53265)and255-32
240 ad=int(rnd(0)*980)+1024
250 sys49152,57344,57344+20,ad
255 sys49152,40960,40960+20,ad+54272
260 next
270 fora=1to500:ifpeek(145)=127then290
280 next
290 poke53265,peek(53265)and255-32
300 poke53270,peek(53270)and255-16
305 poke53270,peek(53270)and255-8
310 fora=1to1500:next
315 poke53270,peek(53270)or8
320 poke53280,14:poke53281,6
330 print"[147]"chr$(142)"[154] **** commodore 64 basic v2 ****"
340 print" 64k ram system 38911 basic bytes free"
350 print"ready.":poke204,.
360 fora=1to4500:next
370 a$="i told you not to press run/stop!!"
380 fora=1tolen(a$):printmid$(a$,a,1);
390 forb=1to10:nextb,a
400 fora=1to4500:next:poke204,1:goto20
6000 open15,8,15,"r0:connect=connect":input#15,er:close15:ifer<>63thenend
6010 poke808,237:poke792,71:load"connect",8